home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 March / PC Answers CD-ROM 5 (Future Publishing) (March 1995).iso / library / olddiscs / iss12 / coderoom.exe / GBROWSE.TXT (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-11-05  |  1.5 KB  |  52 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "PC Answers Graphics File Browser"
  5.    ClientHeight    =   8340
  6.    ClientLeft      =   5670
  7.    ClientTop       =   1965
  8.    ClientWidth     =   7365
  9.    DrawMode        =   1  'Blackness
  10.    Height          =   9030
  11.    Left            =   5610
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   8340
  14.    ScaleWidth      =   7365
  15.    Top             =   1335
  16.    Width           =   7485
  17.    Begin PictureBox Pic 
  18.       BackColor       =   &H00C0C0C0&
  19.       BorderStyle     =   0  'None
  20.       Height          =   8295
  21.       Left            =   0
  22.       ScaleHeight     =   8295
  23.       ScaleWidth      =   7335
  24.       TabIndex        =   0
  25.       Top             =   0
  26.       Width           =   7335
  27.    End
  28.    Begin CommonDialog CMDialog1 
  29.       DefaultExt      =   "*.PCX"
  30.       DialogTitle     =   "Select an Image File"
  31.       Filter          =   "Bitmap Files (*.BMP)|*.BMP|Icon Files (*.ICO)|*.ICO|Windows Metafiles (*.WMF)|*.WMF"
  32.       Left            =   6480
  33.       Top             =   480
  34.    End
  35.    Begin Menu Open 
  36.       Caption         =   "&Open..."
  37.    End
  38. Sub Command1_Click ()
  39.     CMDialog1.Action = 1
  40. End Sub
  41. Sub Open_Click ()
  42.     On Error Resume Next
  43.     CMDialog1.Filename = ""
  44.     CMDialog1.Action = 1
  45.     If Err <> 32755 Then 'user pressed cancel
  46.         Caption = CMDialog1.Filename
  47.         Pic = LoadPicture(CMDialog1.Filename)
  48.     Else
  49.         Caption = "PC Answers Graphic Browser"
  50.     End If
  51. End Sub
  52.